home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / asppw112 / readdir.asp < prev    next >
Text File  |  1999-01-07  |  4KB  |  129 lines
  1. <HTML><BODY>
  2. <%
  3.     ' ReadDir(strDirectory) as integer
  4.     ' ReadDir returns:
  5.     '          1 succeed
  6.     '          0 directory not exists
  7.     '         -1 failure
  8.     '
  9.     ' Sample Operation:
  10.     ' Get a file name and sub directory list of directory "c:\windows".
  11.     '
  12.     '
  13.     ' This file is provided as part of  ASP Power Widgets Samples
  14.     '
  15.     ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT
  16.     ' WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED,
  17.     ' INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES
  18.     ' OF MERCHANTABILITY AND/OR FITNESS FOR A  PARTICULAR
  19.     ' PURPOSE.
  20.  
  21.     ' Copyright 1997-1998. All rights reserved.
  22.     ' Dalun Software Inc. ASP Power Widgets
  23.     ' http://www.dalun.com
  24.     ' http://members.tripod.com/ActiveServerPage/
  25.  
  26.     vbNormal    =    0    'Normal
  27.     vbReadOnly    =    1    'Read-only
  28.     vbHidden    =    2    'Hidden
  29.     vbSystem    =    4    'System
  30.     vbDirectory    =    16    'Directory or folder
  31.     vbArchive    =    32    'File has changed since last backup
  32.  
  33.     Dim sDirName
  34.  
  35.     Set oFDMgt = Server.CreateObject("ASPPW.FDMgt")
  36.     sDirName = oFDMgt.GetWindowsDirectory
  37.     response.write "<p><h2>Read directory " + sDirName + " .</h2></p>"
  38.  
  39.     if oFDMgt.ReadDir(sDirName)= -1 then
  40.         response.write "Oops, Read directory failed.<br>"
  41.         response.write oFDMgt.GetLastErrDescription
  42.     else
  43.         Set oFilelist = ofdmgt.Files
  44.  
  45.         response.write "<table width=100% border=0>"
  46.         For Each file In oFilelist
  47.             response.write "<tr>"
  48.             response.write "<td><font size=2 face=""Courier New"">" & file.Name & "</font></td>"
  49.             response.write "<td align=right><font size=2 face=""Courier New"">" & file.Length & "</font></td>"
  50.             response.write "<td align=right><font size=2 face=""Courier New"">" & file.DateTime & "</font></td>"
  51.  
  52.             sAttr="-"
  53.             if file.Attr And vbReadOnly then
  54.                 sAttr=sAttr & "R-"
  55.             else
  56.                 sAttr=sAttr & "--"
  57.             end if
  58.             if file.Attr And vbHidden then
  59.                 sAttr=sAttr & "H-"
  60.             else
  61.                 sAttr=sAttr & "--"
  62.             end if
  63.             if file.Attr And vbSystem then
  64.                 sAttr=sAttr & "S-"
  65.             else
  66.                 sAttr=sAttr & "--"
  67.             end if
  68.             if file.Attr And vbArchive then
  69.                 sAttr=sAttr & "A-"
  70.             else
  71.                 sAttr=sAttr & "--"
  72.             end if
  73.  
  74.             response.write "<td><font size=2 face=""Courier New"">" & sAttr & "</font></td>"
  75.             response.write "</tr>"
  76.         Next
  77.         response.write "</table>"
  78.         response.write "<font size=2 face=""Courier New""><br>Total " & cstr(oFileList.count) & " files read.<br><br></font>"
  79.  
  80.         response.write "<table width=100% border=0>"
  81.           Set oSubDirList = ofdmgt.SubDirs
  82.           For Each subdir In oSubDirList
  83.             response.write "<tr>"
  84.             response.write "<td><font size=2 face=""Courier New"">" & subdir.Name & "</font></td>"
  85.             response.write "<td align=right><font size=2 face=""Courier New"">" & "DIR" & "</font></td>"
  86.             response.write "<td align=right><font size=2 face=""Courier New"">" & subdir.DateTime & "</font></td>"
  87.  
  88.             sAttr="-"
  89.             if subdir.Attr And vbReadOnly then
  90.                 sAttr=sAttr & "R-"
  91.             else
  92.                 sAttr=sAttr & "--"
  93.             end if
  94.             if subdir.Attr And vbHidden then
  95.                 sAttr=sAttr & "H-"
  96.             else
  97.                 sAttr=sAttr & "--"
  98.             end if
  99.             if subdir.Attr And vbSystem then
  100.                 sAttr=sAttr & "S-"
  101.             else
  102.                 sAttr=sAttr & "--"
  103.             end if
  104.             if subdir.Attr And vbArchive then
  105.                 sAttr=sAttr & "A-"
  106.             else
  107.                 sAttr=sAttr & "--"
  108.             end if
  109.  
  110.             response.write "<td><font size=2 face=""Courier New"">" & sAttr & "</font></td>"
  111.             response.write "</tr>"
  112.           Next
  113.         response.write "</table>"
  114.         response.write "<font size=2 face=""Courier New""><br>Total " & cstr(oSubDirList.count) & " sub directories read.<br><br></font>"
  115.     end if
  116.  
  117.     Response.write "Disk C has " & CStr(oFDMgt.GetDiskfreeSpace("c:\")) & " bytes left."
  118.  
  119.     Set oFilelist=nothing
  120.     Set oSubDirList=nothing
  121.     Set oFDMgt = Nothing
  122. %>
  123. </BODY></HTML>
  124.  
  125.  
  126.  
  127.  
  128.  
  129.